home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Arsenal Files 6
/
The Arsenal Files 6 (Arsenal Computer).ISO
/
business
/
splt231w.zip
/
THP7595.ZIP
/
T7-21.BAS
< prev
next >
Wrap
BASIC Source File
|
1992-08-12
|
684b
|
22 lines
10 OPEN "T7-21.PLT" FOR OUTPUT AS #1
20 PRINT #1,"IN;SP1;"
30 PRINT #1,"PA0,0;"
40 PRINT #1,"DI0,1;LB___1987"+CHR$(3)
50 PRINT #1,"DI1,1;LB___1988"+CHR$(3)
60 PRINT #1,"DI1,0;LB___1989"+CHR$(3)
100 PI=3.14593
110 A%=COS(315*(PI/180))
120 B%=SIN(315*(PI/180))
130 PRINT #1,"DI";A%;",";B%;";LB___1990"+CHR$(3)
140 C%=COS(270*(PI/180))
150 D%=SIN(270*(PI/180))
160 PRINT #1,"DI";C%;",";D%;";LB___1991"+CHR$(13)+CHR$(3)
170 E%=COS(225*(PI/180))
180 F%=SIN(225*(PI/180))
190 PRINT #1,"DI";E%;",";F%;";LB___1992"+CHR$(13)+CHR$(3)
200 G%=COS(-180*(PI/180))
210 H%=SIN(-180*(PI/180))
220 PRINT #1,"DI";G%;",";H%;";LB___1993"+CHR$(13)+CHR$(3)
230 PRINT #1,"SP0;"
240 END